CLOS DATA
SET CENT ON
set proc to sospro
set proc to ADDREPRO
set proc to BOXPROC
STORE ' ' TO AEANAME,AEAADDR,AEACITY,AEACOUN,AEACURR
STORE .F. TO AEAHEAL,AEADECI
DO START
PL2=1
DR='N:'
*REST FROM n:STNAME ADDI
*PUBLIC SITENAME,SITELOCA
DO WHILE .T.
   set colo to bg+/b,w+/n
   CLEAR
   DO ADDRESSA
   DO ADDRDORD
   @  9,  5  PROMPT "A. PREPARE DELIVERY        "
   @ 11,  5  PROMPT "B. EDIT PREVIOUS DELIVERIES"
   @ 13,  5  PROMPT "C. DELETE ITEM FROM D. O.  "
   @ 15,  5  PROMPT "D. ADD ITEM TO D. O.       "
   @  9, 40  PROMPT "E. PRINT DELIVERY ORDER    "
   @ 11, 40  PROMPT "F. RECALL PRINTED D. O.    "
   @ 13, 40  PROMPT "G. PRINT MONTHLY REPORT    "
   @ 15, 40  PROMPT "X. BACK TO PREVIOUS MENU   "
   @ 20,  5  SAY "Use DELIVERY TO CLIENTS for all ISSUES by CENTRAL STORE which are not"
   @ 21,  5  SAY "transferred to CLINIC. Issues to AEA operations are registered under "
   @ 22,  5  SAY "Asih Eka Abadi Company code."
   @ 19,  3  TO 23, 75    DOUBLE
   @  8,  3  TO 16, 35    DOUBLE
   @  8, 38  TO 16, 68    DOUBLE
   MENU TO PL2
   SET COLO TO BG+/B,W+/N
   IF LAST()=27
      RETURN
   ENDIF
   DO CASE
     CASE PL2=1
         DO do_PRE
     CASE PL2=2
         DO do_MOD
     CASE PL2=3
         DO do_DEL
     CASE PL2=4
         DO do_ADD
     CASE PL2=5
         DO DO_PRI
     CASE PL2=6
         DO do_REC
     CASE PL2=7
*         DO DO_REP
         DO DO_REP2
     CASE PL2=8
         RETURN
   ENDCASE
   LOOP
ENDDO
